home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
ROOTER2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-01-18
|
512b
|
23 lines
PROGRAM BetterRooter;
VAR
R,S : Real;
BEGIN
Writeln('>>Better square root calculator<<');
Writeln;
R:=1;
WHILE R<>0 DO
BEGIN
Writeln('>>Enter the number (0 to exit): ');
Readln(R);
IF R<>0 THEN
BEGIN
S := Sqrt(R);
Writeln(' The square root of ',R:7:7,' is ',S:7:7,'.');
Writeln
END
END;
Writeln('>>Square root calculator signing off...')
END.